﻿Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient

<System.ComponentModel.DataObjectAttribute(True)> _
Public Class BLL_Banner

    Public Sub New()
        '
        ' TODO: 在此加入建構函式的程式碼
        ''
    End Sub

#Region "列表"

    'SELECT
    <System.ComponentModel.DataObjectMethod(System.ComponentModel.DataObjectMethodType.Select)> _
    Public Function Banner_Select() As DataTable
        Dim dbUtil As MyclsDBUtility = MyclsDBUtility.GetInstance()
        Return dbUtil.Banner_Select()
    End Function

    'DELETE
    <System.ComponentModel.DataObjectMethod(System.ComponentModel.DataObjectMethodType.Delete)> _
    Public Sub Banner_Delete(ByVal original_BannerID As Integer, ByVal original_Active As String)
        Dim dbUtil As MyclsDBUtility = MyclsDBUtility.GetInstance()
        dbUtil.Banner_Delete(original_BannerID)
    End Sub

#End Region


#Region "編輯"

    'SELECT
    <System.ComponentModel.DataObjectMethod(System.ComponentModel.DataObjectMethodType.Select)> _
    Public Function Banner_SelectByBannerID(ByVal BannerID As Integer) As DataTable
        Dim dbUtil As MyclsDBUtility = MyclsDBUtility.GetInstance()
        Return dbUtil.Banner_SelectByBannerID(BannerID)
    End Function

#End Region

End Class


